-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=160, y1=103, x2=416, y2=359)
-- screen: Rect(x1=0, y1=0, x2=672, y2=512)
-- card dimensions: w=256 h=256
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2785
-- card count: 1
-- first card id: 3055
-- list block id: 3807
-- print block id: 0
-- font table block id: 3499
-- style table block id: 3257
-- free block count: 0
-- free size: 0 bytes
-- total size: 14176 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x02108000
-- compacted by hypercard version: 0x02108000
-- modified by hypercard version: 0x02108000
-- opened by hypercard version: 0x02108000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDE3AC891
----- HyperTalk script -----
on openStack
  click at loc of cd fld CDRemotePrograms

  put "Hello" && GetStr(-16096) & comma into cd fld theText
  put "    Click here to create a personalized music compact disc" && "controller stack.  Information on your CD collection will be" && "read from the" && quote & "CD Remote Programs" & quote && "file" && "in your System Folder (this file is created and maintained by" && "the" && quote & "CD Remote" & quote & " desk accessory).  A new" && "HyperCard stack which can play your music CDs will be created." into line 3 of cd fld theText

  put return & "       " into i
  put return & i & "Chris Clauss" after cd fld theText
  put return & i & "America Online:  Clauss" after cd fld theText
  put i & "AppleLink:          Clauss1" after cd fld theText
  put i & "CompuServe:      70357,674" after cd fld theText
  put i & "Internet:  Clauss1@AppleLink.Apple.Com" after cd fld theText

  wait 3 seconds
  pass openStack
end openStack

on closeStack
  put return & "        Goodbye," && GetStr(-16096) & "." into cd fld theText
  wait 1 second
  repeat with i = 1 to number of cd flds
    put empty into cd fld i
  end repeat
  pass closeStack
end closeStack

-- Script of new stack's bg fld trackTitles is below.
-- The restOfScript() routine will cut this script here ***
on mouseUp playNow end mouseUp on playNow cdOpen cdPlayTrack 5 end playNow